10 POKE53280,0:POKE53281,0:PRINT"[158]"
11 I=2:PRINT"[147]"SPC(15)"LOTTO":PRINT""
12 A=INT (45*RND (1))+1
13 PRINT A"  ";
14 B=INT(((45*RND(1))+1)):IF B=A THEN14
15 PRINT B"  ";
16 C=INT(((45*RND(1))+1)*3/4):IF C=B OR C=A THEN 16
17 PRINT C"  ";
18 D=INT(((45*RND(1))+1)/I+3):IF D=C OR  D=B OR  D=A THEN18
19 PRINT D"  ";
20 E=INT(((45*RND(1))+1)/I+13):IF E=D ORE=C OR  E=B OR  E=A THEN 20
21 PRINT E"  ";
22 F=INT(((45*RND(1))+1)/I+20):IF F=E OR F=D OR F=C OR F=B OR F=A THEN22
23 PRINT F"  ";
24 PRINT"NOCH EINEN TIP?"
25 GET A$
26 IF A$="N"THEN 40
27 IF A$="J"THEN11
28 IF A$<>"J"THEN25
40 SYS64738